home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 91 / 091.d81 / crypt boot 91 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  78 lines
  1. 10 poke53280,0:poke53281,0:print"[147]";
  2. 20 poke55,0:poke56,96:clr
  3. 22 dv=peek(186):ifdv<8thendv=8
  4. 25 gosub60000
  5. 30 sys57812"toolbox 91",dv,0:poke781,0:poke782,192:sys65493
  6. 40 sys57812"cryptic 91",dv,0:poke781,0:poke782,96:sys65493
  7. 45 print"[147]"
  8. 50 sys49152,7,4,15,7,34,160,12
  9. 52 sys49152,7,2,13,5,31,160,15
  10. 54 sys49152,7,4,13,32,32,101+128,12
  11. 60 printtab(10)"[155][195][210][217][208][212][201][195] [195][210][207][211][211][215][207][210][196]"
  12. 62 printtab(10)"[163][163][163][163][163][163][163] [163][163][163][163][163][163][163][163][163]"
  13. 65 printtab(7)"1] [208]rint [208]uzzle
  14. 70 [153][163]7)"2] (NULL)rint (NULL)olution
  15. 75 printtab(7)"3] [211]olving [201]nstructions
  16. 77 [153][163]7)"4] (NULL)uzzle valxplanation
  17. 79 printtab(7)"5] [197]xit"
  18. 80 printtab(5)"[155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  19. 81 sys49152,7,19,20,0,39,98,11
  20. 82 sys49152,7,23,24,0,39,98+128,11
  21. 83 sys49152,4,0:poke198,0
  22. 85 sys49152,3,0,0,1,14,20,160,"[208]ress 1-5 to select.
  23. 90 [161]k$:[139]k$[178]""[167]85
  24. 95 k[178][197](k$):[139]k[179]1[176] k[177]5[167]85
  25. 100 [145]k[141]1000,2000,3000,5000,4000
  26. 105 [137]85
  27. 110 :
  28. 1000 [158]49152,10,15,4:[158]49152,6,6,7,6,30,12
  29. 1002 [158]49152,3,0,0,1,14,20,160,"(NULL)rinter ready?  [y/n]"
  30. 1005 [161]k$:[139]k$[178]""[167]1002
  31. 1010 [139]k$[179][177]"y"[167][158]49152,5,0:[142]
  32. 1012 [158]49152,10,4,3
  33. 1015 [158]49152,7,20,23,0,39,160,14
  34. 1020 [151]214,20:[153]:[153][163]15)"cont(NULL)rinting..."
  35. 1025 [158]24576:[158]49152,5,0:[142]
  36. 1030 :
  37. 2000 [158]49152,10,15,4:[158]49152,6,7,8,6,30,12
  38. 2002 [158]49152,3,0,0,1,14,20,160,"(NULL)rinter ready?  [y/n]"
  39. 2005 [161]k$:[139]k$[178]""[167]2002
  40. 2010 [139]k$[179][177]"y"[167][158]49152,5,0:[142]
  41. 2012 [158]49152,10,4,3
  42. 2015 [158]49152,7,20,23,0,39,160,14
  43. 2020 [151]214,20:[153]:[153][163]15)"cont(NULL)rinting..."
  44. 2025 [158]24576[170]3:[158]49152,5,0:[142]
  45. 2030 :
  46. 3000 [153]"list":[158]49152,13,dv,[198]("\"),"cryptic instr 91"
  47. 3005 [158]49152,5,0:[142]
  48. 3010 :
  49. 4000 [158]49152,10,15,4:[158]49152,6,10,11,6,30,12
  50. 4002 [158]49152,3,0,0,1,14,20,160,"atnre (NULL)ou (NULL)ure?  [y/n]"
  51. 4005 [161]k$:[139]k$[178]""[167]4002
  52. 4010 [139]k$[179][177]"y"[167][158]49152,5,0:[142]
  53. 4012 [151]55,0:[151]56,160:[156]
  54. 4050 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er%:[160]15
  55. 4055 [139]er%[179][177]63[167][128]
  56. 4060 [151]646,[194](53281)
  57. 4062 [153]"loadwaitload"[199](34)"hello connect"[199](34)",8"
  58. 4065 [153]"run"
  59. 4075 [151]631,13:[151]632,13:[151]633,13:[151]198,3:[128]
  60. 4080 :
  61. 5000 [153]"list":[158]49152,13,dv,[198]("\"),"explanation 91"
  62. 5005 [158]49152,5,0:[142]
  63. 5010 :
  64. 10000 [159]15,8,15,"s0:crypt boot 91":[160]15:[148]"crypt boot 91",8:[128]
  65. 60000 [151]214,8:[153]:[153][163]6)"forlen (NULL) (NULL) (NULL) (NULL) right$ len   len (NULL) (NULL) (NULL) val (NULL)"
  66. 60005 [153][163]8)"contatn (NULL)uzzle for the (NULL)rolley"
  67. 60009 b9$[178]"                                      "
  68. 60010 [151]214,14:[153]:[153]"  listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefreprint#"
  69. 60020 [129]i[178]0[164]7:[153]b9$:[130]:[153]"  pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  70. 60030 b9$(0)[178]"len (NULL) (NULL) (NULL) (NULL) right$ len    len (NULL) (NULL) (NULL) val (NULL)"
  71. 60040 b9$(1)[178]"by ascender (NULL)ucker & peekarbara (NULL)chulak"
  72. 60050 b9$(2)[178]"(len) 1991 by (NULL)oftdisk, right$nc."
  73. 60060 b9$(3)[178]"(NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #91"
  74. 60070 b9$(4)[178]"(NULL)ubscriptions 1-800-831-2694"
  75. 60080 b9$(5)[178]"atnll (NULL)ights (NULL)eserved"
  76. 60090 [151]214,16:[153]:[129]i[178]0[164]5:[153][163]20[171]([195](b9$(i))[173]2))""b9$(i):[130]
  77. 60099 [142]
  78.